home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
A-COMAL Series
/
(k)aab.d64
/
proc.backup
< prev
next >
Wrap
Text File
|
2007-02-28
|
674b
|
25 lines
0010 // ╒╙┼ SYSTEM
0020 // DEFKEY(8,""147"SCAN"13"BACKUP(""SAVE"",""NAME"")"13"") // WRAP LINE
0030 ╨╥╧├ BACKUP(ACTION$,F$) ├╠╧╙┼─
0040 ╒╙┼ SYSTEM
0050 ╔╞ ╠┼╬(F$)>16 ╘╚┼╬ F$:=F$(1:16)
0060 ─╔═ FL$ ╧╞ 16
0070 FL$:=F$+".BK"
0080 ╔╞ ╠┼╬(FL$)=16 ╘╚┼╬
0090 FL$(14:16):=".BK"
0100 ┼╬─╔╞
0110 ─┼╠┼╘┼ FL$
0120 ╘╥┴╨
0130 ╨┴╙╙ "R0:"+FL$+"="+F$
0140 ╚┴╬─╠┼╥
0150 ╬╒╠╠ // IF BACKUP FILE DOESN'T EXIST
0160 ┼╬─╘╥┴╨
0170 ╨┴╟┼
0180 ╨╥╔╬╘ ┴╘ 10,5: ACTION$+"""0:",F$,""""
0190 ╨╥╔╬╘ ┴╘ 11,5: "├┴╘"
0200 ├╒╥╙╧╥ 10,1
0210 ╨╧╦┼ 198,2 // CAUSES AN AUTOMATIC
0220 ╨╧╦┼ 631,13 // LIST AND DIRECTORY
0230 ╨╧╦┼ 632,13 // LISTING
0240 ┼╬─╨╥╧├ BACKUP